Valid as of 12/09/2012


//FNzzzzRS JOB (FNzzzz),'OUTGOING AGING',
//     REGION=4096K,MSGCLASS=A,TIME=(,20)  
/*JOBPARM CARDS=999999,LINES=9999
/*ROUTE XEQ NWR
/*PASSWORD ???????
//***********************************************************
//*      FASTER OUTGOING AGING REPORT                       *
//***********************************************************
//*  THIS STEP DELETES THE FILE TO BE CREATED IN NEXT STEP
//   EXEC IKJBATCH
//NWRISPF.SYSTSPRT DD DUMMY
DELETE 'FN.zzzz.OUTGOING.AGING.RECORDS'
DELETE 'FN.zzzz.OUTGOING.AGING.REPORT'
//************************************************************
//* PARAM CARD VALUES OUTGOING AGING
//*
//* POS 1 - 1 = OUTPUT TYPE
//*             P - REPORT ONLY
//*             F - FILE ONLY
//*             B - REPORT AND FILE
//* POS 2 - 2 = RECORD STATUS
//*             Y - EXCLUDE RECORDS ALREADY CHECKED
//*             N - ALL RECORDS
//* POS 3 - 3   ADDRESSEE TYPE
//*             F=Faster rec only, B=Brt Futures only, blank=both
//************************************************************
//SRTS21   EXEC PGM=IKJEFT01
//PARAM    DD *
BN
//AGERPT   DD DSN=FN.zzzz.OUTGOING.AGING.REPORT,
//         DISP=(NEW,CATLG),UNIT=SYSDA,STORCLAS=SCFNSTD,
//         DCB=(RECFM=FB,LRECL=133,BLKSIZE=0,DSORG=PS),
//         SPACE=(TRK,(100,10),RLSE)
//AGEFILE  DD DSN=FN.zzzz.OUTGOING.AGING.RECORDS,
//         DISP=(NEW,CATLG),UNIT=SYSDA,STORCLAS=SCFNSTD,
//         DCB=(RECFM=FB,LRECL=1020,BLKSIZE=0,DSORG=PS),
//         SPACE=(TRK,(100,10),RLSE)
//SYSPRINT DD SYSOUT=A
//SYSOUT   DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//SYSERR   DD SYSOUT=A
//SYSABOUT DD SYSOUT=A
//SYSTSPRT DD DUMMY
//DSNTRACE DD DUMMY
//IGZSRTCD DD DUMMY
//SYSTSIN  DD *
 DSN SYSTEM(DSN)
 RUN  PROGRAM(SRTS21) PLAN(FNSRTS21) -
      LIB('FRN.DISTRICT.LINKLIB')
 END
//